| a > I SOSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSOOOOSOSOOSOSSS | 


LLLLLLLLLLLELLLL 
LLELLLLLLLLLLLLL 
LLELLLLLLLLLLLLL 


ovue 
ooo 
ouoe 
ovue 
ovo”e 
uuo"e 
No RNe ES] 
ovueo 
yuo"o 
oo”g 
ouoo 


GGGGGGG6GG 
GGGGGGGGG 
GGGGGGGGG 


=S 


—> See re ee ee see OFS 5S eo 66 6S 8S 5S 5S 5S FS 8S OFS FEES FS HFS FS FETS HTS GE FEHR He He 


 2o ovuu”U 
7G) uuuo 
ovo oo oo 
oo oo oo 
uo oo oo 
oUo oo ovo 
ov uo 
oo uo 
YVVIOIVUI VVVUY9U 
VUVIVIVOVIIV0O9 
22 222222222222 
222222222 22222 
zz 
z2*~ 
22 
zz 
22a 
222222222 22222 
22222222222 222 
~N 
- 
a) ahem) eae 
— os toe 


td OS Oe Od Od ad Od Od Bd Od Od Ot Oe 
kk Od Od Ok Ok Od Od Od Od Od Od Od OG 
— te 
—— _— 


ee ee 
ee ae ee oo 
—— 


od 
a 
a 
nn NNNM on YNNMNMN 
nw NNN nw ONMNM 
nw nn nn nn “nw nn 
nw nn "nn nn nn nn 
nn nn nw vn nn nw 
nn ww mn nn nn ww 
mn Ow nw nn nn nn 
mn nn nn nn nn nw 
WNNNwW nw NMNMM nn 
MmMnw mm MMWMnm nn 
— ——— ——- ~~“ 
te ed —— a oe —“—— 
dO Od Od Od Od Od Od On Bnd On Og Og Od ag Og Oy nd ng nd Og OG my a On OG 
Ok Ok Od Od ad at Od ad Ot Od Ot a OE ae ag ah Og ad ag ag mn ad Oe a 
“I — od Omg ——— 
—e — — — 
ao =) 
a4 a4 
=| 44 
| aw 
= | ao 
Jjo a ad 
a. a4 
= | a4 
eed ed ad od 2d od od od) Ad A I A a aod I I od od od od I I I I I 
ed ed ed ed ed ed ed) ad ed eed) ed ed ed ed cd dd ed ed ed od 2d od od I 


**FILE**1D**LISTING 


M12 
N 16-Sep-1984 02:15: AX=-11 Bliss-32_V4.0-742 P 1 
127388-188e HAL MSGFIL.SRCILISTING.B32;1 tor: (1) 
E Listing (IDENT = 'V04-000') = 


<r 
4) 
22 


Oo 


" 
B 
: 
ASSES SSSLIOL IIIT TEST TTT TTT TTT TTT Perec ceri titi iii iit iit itiitiiiitiiiiey 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 

* 

® 

® 

5 * 
:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
!® TRANSFERRED. * 
: ® 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
!® CORPORATION. ® 
® 

® 

® 

® 

a 

® 


i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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144 
FACILITY: Message compiler 
| 


a a at a at a an a at at at at ot Oh tt SS SP SY SS St SS SS SS SS SS SS SS SS YS SY SS 1 OO 


if 

080 1 i 

83 ABSTRACT: 

03 i This compiler translated message definition language 

og into object modules 

0056 ENVIRONMENT : 

0038 VAX/VMS operating system. unprivileged user mode, 

9040 AUTHOR: Tim Halvorsen, Nov 1979 
42 004 i Modified by: 
4 004 ! 
44 044 : v03-003 GJA0095 Greg Awdziewicz 10-Aug-1984 
rf pez - Change version # of Listing title to v04-00. 
47 004 i v03-002 GyA0052 Greg Awdziewicz 14-Oct-1983 
$8 nk: Echo original command Line. 
50 $080 i 001 JWT0065 Jim Teague 15-Nov-1982 
51 051 : Make Lib$lp_lines a G* call. 
26 03g ! 
5 05 leo 
54 bee 
55 55 ! 
56 B29 ' Include files 
57 005 ! 


1 
1 
1 
1 
1 
1 


LIBRARY "SYSSLIBRARY:STARLET'; 


LIBRARY ‘SYSSLIBRARY:TPAMAC'; 
REQUIRE "SRCS$:MSG.REQ'; 


- 
if: sep 138e 93:48:93 Eagor de snesiteringrasds dee a 
! VAX/VMS common definitions 


! TPARSE definitions 
! Command definitions 


65 1 
ef § 
5 
#6 
7) 
f 0 
ae 1 
75 1 
? 1 
? 1 
1 
1 
1 
1 
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MACRO 
Goer Pitt 
UPLIT 


SSBTTL "Routine and Data declarations’ 
Table of contents 


song 1 ROUT INE 


set_line_number, 


put_Line, 
error summary, 
end_listing; 

: 

Macros 


' 
Literals 


LITERAL 
code_offset = 25, 
Linenum_offset = 35, 
record offset = 40, 
Line_sTze = 133; 


' 
Storage definitions 


pyee numbers tye et 2 

ine_number : INITIAL (9999), 
Lines_per_page: INITIAL(60), 
last_echoed: INITIAL(O), 
errors: INITIAL(O), 
warnings: yee eh te 
infos: INITIAL(O); 

' 

External storage 

EXTERNAL 
command_line_desc: BBLOCK 
cli_flags: BITVECTOR, 
worst_error: BBLOCK, 
title text: VECTOR, 
module_name: VECTOR, 
input_record: VECTOR, 


1-30-1984 03:15:09 


13 
AX-11 
MSGFIL 


Output a Line with a hex value 
egho the input record on one Line 
$ gre} @ syntax error 

Set Line number into buffer 

Start a new page 

pytput a listing record 

Give error summary 

Cleanup Listing 


Create descriptor of static string 


pete ing? = ' 
ZCHARCOUNT(string),UPLIT BYTE (string))2; 


Column where message code starts 
Column where Line number starts 
Column where record starts 
Length of output record buffer 


Current page number 

Current line number (force new page) 
Maximum Lines per page 

Last input record echoed 

# errors detected 

# warnings detected 

# informational msgs issued 


Descriptor of erieinal command Line. 
CLI qualifier i.ts 

Worst error encountered 

Title text str ng 

Descriptor of module name string 
Descriptor of record into tparse 


voe-008 


Se ee Ge Ge Ge Se Ge Ge Se Ge Ge Ge Oe Ge Se Gee 
kt a 
BNAOUESWN—OOONOUS UT 


; Routine Size: 


Routine Base: 


3 bytes, 


00000000 
0000270F 
0000003C 
00000000 


00000000 
00000000 


00000000 


SCODES + 0000 


- TITLE 
- IDENT 


.PSECT 
00000 PAGE NUMBER: 
00004 LINE_NUMBER: 


ef N 
00008 LINES_PER_PAGE: 


-LON 
QOO0C LAST_ECHOED: 
LONG 


00010 ERRORS: .LONG 
00014 WARNINGS: 


- LONG 
00018 INFOS: .LONG 


00 NULL: 


13 
1b-5¢ -1984 02:15: AX-11 Bliss-32 V4.0-74 
Routine and Data declarations 1 ~30071 382 98:13:98 MSGEIL SRE ESTING BSSe1 
1 input_linenum, ! Input Line number 
: 1 Liat ig, tab: BBLOCK, : Lieting tile FAB 
1 Listing_rab: BBLOCK, ' Listing file RAB 
1 output_Tab: BBLOCK, ' Output file FAB 
1 output_rab BBLOCK, ' Output file RAB 
1 nput_Ta BBLOCK, ' Input file F 
¢ : input_rab: BBLOCK; ! Input file RAB 
1! 
67 1 ! External routines 
o8 : : 
% 1 EXTERNAL ROUTINE 
oe Lib$Slp_lines: addressing_mode(general), ! Determine physical Lines/page 
Ie : rms_error; ! Signal RMS-type error 
74 1 ROUTINE null: NOVALUE = ; 


LISTING 
\V04-000\ 
SOWNS ,NOEXE ,2 


E_DESC 

LAGS, WORST ERROR 
TEXT, MODUCE NAME 
RECORD, INPUT_LINENUM 
G STING_RAB 
PUT_FAB, OUTPUT_RAB 

UT NPUT_RAB 
LIBSLP_LINES, RMS_ERROR 
SCODES,NOWRT,2 
Save nothing 


KOCK HOMO COO 2oO 


zZzCe2=—rO 


Page ; 


——— | 


; 0374 


13 


2 
33 


s 16 75 1 ZSBTTL "LINE WITH_VALUE = Output a Listing Line’ 

; 1a 8 ! GLOBAL ROUTINE Lifte_w th_value (value) = ° 

on Bie 

: 145 0 i i This routine outputs a Listing Line for a successfully 

3 178 1 ! } parsed input record. 

3 148 : i Inputs: 

3 } ° 5 } value = Value to be output as hex value on Line 

eS 1 | Outputs: 

: 48 Tee lene 

; «6154 89 1! None 

Bool 

: ie O39 5 CEGIN 

: 159 0594 LOCAL 

: 160 0395 input_length, ! Length of input Line 

3; 161 0396 buffer: VECTOR Cline_size,BYTE), ! Output buffer 

3 106 0397 tmpdesc: VECTOR $4: ! Temporary FAO descriptor 

3 13? it bufdesc: VECTOR (2); ! Descriptor of buffer 

: 165 0400 2 IF NOT .cli_flags Cqual_listing] ! If not /LISTING 

; 166 0401 T 

: 167 ot) RETURN true; ! then do nothing 

: 168 040 § 

3 19) Bebe CHSFILL(" ‘,record_offset,buffer); ! Clear beginning of Line 

: 4 0406 set_line_number (buffer); ! Set Line number into buffer 
; 178 44 input_length = MINU(.input_rab Crab$w_rsz], Line_size-record_offset); 
: 175 0410 bufdesc [0] = .input_length + record_offset; ! Actual Length of Line 
3 176 ah 2 bufdesc (1) = buffer; ' Set buffer address 

; 178 gc18 3 CHSMOVE(.input_length, .input_rab Crab$l_rbf], buffer+record_offset); 
; 180 0415 tmpdesc [0] = 8; ' Length of FAO output 

; «181 0416 tmpdesc [1] = buffer + code_offset; ! Address to put FAO output 
3 13s 0417 $FAO(descriptor('!XL"),0, tmpdesc, .value); 

: 3 pei8 

; 184 41 § 

3; 185 0420 ‘ Output the completed Line 

; 136 0421 ! 

: 187 04 ; : 

3 138 ; ? put_line(bufdesc); ! Output the Line 

: 190 4 5 2 RETURN true; 

: 192 4 5 END; 


-PSECT S$PLITS,NOWRT ,NOEXE ,2 


” 
LINE _WITH_VALUE = Output a Listing Line 1e=geen13be 93:18:9 «— HAR SE OhEST FE ihe aS3e1 


28 20 


000000006 
0000Vv 


LIST te -1984 
Voe~008 LINE _WITH_VALUE = Output a Listing Line ; 
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; Routine Size: 98 bytes, Routine Base: S$CODE$ + 0003 


-ASCII 
-BLKB 
: LONG 


¢MBiU89$ — ERSGrivSSRESLISTING. Osos 


\IXLA 


-ADDRESS P.AAB 


«EXTRN 


SYSS$FAO 
SCODES,NOWRT,2 
=152136), $P VALUE, Save R2,R3,R4,R5 


SP) 
chi FLAGS, "38 
, (SP), #32, #40, BUFFER 
BUFFER 
SET_LINE_NUMBER 
T abut RAB+34; RO 
RO, #93 
1$ 
93 


#93, RO 

40(RO), BUFDESC 
BUFFER, BUFDESC+4 
INPUT LENGTH, @INPUT_RAB+40, BUFFER+40 
BuFFERs25, TMPDESC +4 
TMPDESC 

5 (SP) ) 

ai, SYSSFAO 

SP 

#1, PUT_LINE 

#1. RO 
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SYNTAX_ERROR 
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F 13 
1 85p=198e 93:48:18 
1 XSBTTL "SYNTAX_ERROR’ 


1 GLOBAL ROUTINE syntax_error (tparse, message, faoargs) = 


AX-11 Bliss-32 
MSGFIL.SRCJLISTING.B632;1 


1 
1 ! 2en 
1: 
1: This routine reports a syntax error to the listing 
! file when an error is detected in the input stream. 
! Inputs: 
1! message = Message code describing error 
: tparse = Address of TPARSE block 
: Outputs: 
: ! r0 = message code given (so that it can be returned) 
i} 
BEGIN 
BUILTIN 
ACTUALCOUNT; ! Number of actual arguments 
MAP 
message: BBLOCK, ' Get at fields of message 
tparse: REF BBLOCK; ! Address of TPARSE parameter block 
LOCAL 
bufdesc: VECTOR (2) ! Buffer descriptor 
buffer: VECTOR Cline_size,BYTEJ, ! Line buffer 
pos, ! Position to put indicator on Line 
status; ! Status code 
' 
increment the number of messages for each type of severity 
ft _gteoeene Csts$v_severity] EQL sts$k_warning 
ELS warnings = .warnings + 1 
wen” -message (sts$v_severity] EQL sts$k_info 
infos = .infos + 1 
ELSE 
errors = .errors + 1; 
' 
: Save worst error encountered during compile 
if zmoncage Csts$v_severity] GE® .worst_error Csts$v_severity] 
worst_error = .message OR sts$m_inhib_msg; 
' 
i Echo the input record first 


V4.0-742 
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SYNTAX_ERROR 


agt**."tege Cqual_Llisting] 


BEGIN 

LOCAL save; 

save = .last_echoed; 
echo_record(); 

post ecnese = .save; 


echo_record(output_rab); 
' 


! If /LISTING specified, 


! Save Line number last echoed 
' Echo the input record on one Line 
! Restore so call below will not no-op 


! also to sys$output as well 


i Figure out the position to put the indicator marker and output indicator 


0 


os = .pos + 9 = (.pos MOD 8) 
ELse” Z r 
pos = .pos + 1; 
pos = record_offset + .pos-1; 
IF (.pos oray Line_size) OR 
nen ore tpa$l_stringcnt] EQLU 0) 
pos = record_offset; 


bufdesc 9} = .pos + 1; 
bufdesc (1) = buffer; 


CHSFILL (* ', .pos, buffer); 
buffer C.pos] = '!'; 
put_line (bufdesc); 


Get text of error message 


bufdesc (0) = Line_size; 


os = 1; 

TNCR i FROM 0 TO .tparse Ctpa$l_tokenptr 
IF .(.input_record [1] + .i1)<0,8> EQ. ' 
THEN 


j Set column to 1 


1 - .input_record (1) 
' ! If TAB detected, 
! Increment column to tab stop 


Else, increment column by one 


Figure column in output Listing 


If off end of Line 
or end or record, 


—- 


then just put at start of Line 


Size of buffer 
Address of buffer 


Clear buffer 


Insert indicator 


Output indicator 


! Size of buffer 


SGETMSG (MSGID=.message,BUF ADR=bufdesc ,MSGLEN=bufdesc); 


IF ACTUALCOUNT() GTR 2 
THEN 


ctrdesc: VECTOR [2 


L 
ctrbuffer: VECTOR line. size.BvF 


! If FAO arguments specified, 


E) ' Control string 


' €ontroi string descriptor 


SSS SSS SSS SSS 


} 
H 13 
LIST 16-Sep-1984 215: AX-11 Bliss-32 V4.0-742 Pa 9 
Vbe 608 SYNTAX_ERROR erepn tgs MS:1z:9§ || HARSH Ob desc Fe Vee05 t82, ™ J 
; 308 4 ctrdesc (0 sbufdese £03: ! Copy FAO string descriptor ; 
; 309 4 ctrdesc FS j= = ¢tr rbutfe " ° . : 
; 19 ad ENEROVE  Butdese t ¥ .butdese C1), ctrbut ter); it Save string | ; 
3 put buffer s 3 
: \¢ rh SFAOL(CTRSTR=ctrdese, /OUTLEN=bufdesc \OUTBUF sbotdese -PRMLST=faoargs); : 
» | . 
HMB. ea 
; 18 331 } Output the message | 
3 18 5 ; | : 
3 3 22 put_line (bufdesc); ! Output message buffer : 
: $9 222 put_line (bufdesc, output_rab); i and also to sy: $output as well | ; 
3 § 0356 RETURN .message OR sts$m_inhib_msg; ! return with input status : 
3 055 i and mark already signaled 3 
3 4 0558 3 
3 5 0559 1 END; $ 
-EXTRN SYSSGETMSG, SYSS$FAOL é 
01FC 00000 ~ENTRY es ghRoee Save R2,R3,R4,R5,R6,R7,R8 3 0429 HY 
58 O000v CF 9E 80006 MOVAB PUT ; 3 
57 9000' CF 9E 0000 MOVAB LAST rECHOED R7 : : 
3E FEEC CE 9€ 0000C MOVAB <P8at3P) SP : : 
50 08 AC 0 00 EF 00011 EXTZV hESSAGE, RO ; 0465 $ 
05 12 00017 BNEQ : 3 
08 <A? 06 00019 INCL WARNINGS 3; 0467 3 
OD 11 0001C BRB | ie ; : 
03 50 D1 OOO1E 1$ CMPL RO, #3 3 0469 3 
05 12 00021 BNEQ 3 3 
0c A? 06 00023 INCL NFOS 3; 0471 
06 A? bb 9058 28 ENCL ERROR : 0473 
50 0000G CF 03 op +4 09 B $$ Ha #0, a. WORST_ERROR, RO : 0479 
00006 AC 10000000 F C9 000 BISL3 #268435456, MESSAGE, WORST_ERROR : 0481 
0000G CF €E9 OOO3F 4$: BLBC CL : 0487 
5 67 DO 00044 MOVL LAST ECHOED SAVE > 0491 
CF 99 fe 0047 CALLS bos ECHO_RECORD 3; 049 
67 3 004C MOVL SAVE. Cast ECHOED 3; 049 
00006 CF 9F ‘el 5$ PUSHAB OUTPY 3 0496 
CF 1 4 HH CALLS , ECRO_RECORD $ 
56 1 ODO . MOVL #1 ; 050 
52 04 Ac D6 0058 MOVL_ TPARS ; 050 
A2 00006 CF C3 0005F SUBL 3 INPUT RECORD*4, 20(R2), R3 ; 
5 01 ff $6 MNEGL “i, I 3 
if BRB 3 
09 OOOOGDF4 91 6$: CMPB . eee RECORD+4C1], #9 ; 0505 
14 12 1 BNEQ F 
56 1 7A es EMUL » POS at) 3; 0507 
E 8 78 7 EDIV me: { (SP PS+ fl ; 
6 1 § 70 SUBL3 3 
6 09 «AI F 81 MOVAB Btn) 05,8 ; 
02 #1 085 BRE ; 


Vbe-006 SYNTAX_ERROR 


DE 0 


6 
00000085 i 


56 

F8 AD 

FC AD 

56 20 6E 


FF70 CD46 


FB AD 


000000006 00 


02 
6E F8 
04 AE 08 
08 AE FC =6BD F8 
FB AD 85 
OC 
F8 
F8 
oc 
000000006 00 
F8 
68 
00006 
F8 
68 
50 08 AC 10000000 


; Routine Size: 287 bytes, Routine Base: 


08 


FP 


FF70 


F8 
85 


SCODES + 0065 
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UF DESC 
BUFFER BUFDESC+4 
#0, (SP), #32, POS, BUFFER 


#33, BUFFERCPOS] 
BUF DE 


BUFDESC, CTRDESC 

CTRBUFFER, CTRDESC+4 

BUFDESC, @BUFDESC+4, CTRBUFFER 
BUF DESC 


#2, PUT_LINE 
1568435556. MESSAGE, RO 
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1986 03:15:08 eel Blis ig V4.0-742 


LIST 
Vv 1808 ECHO_RECORD MSGFIL.SRCJLISTING.B32;1 


H 7 60 1 ZSBTTL ‘ECHO_RECORD' 

; : $3 ! GLOBAL ROUTINE echo_record (rab) = 

; 330 63 1 ta. 

; 1 64 1! 

; ¢ 6s 1! This routine simply outputs the input record at the 

3 66 ' correct position on the output Listing. 

5 38 } ; Inputs: 

3 7 570 1! rab = Address of RAB to use (if not specified, use Listing_rab) 
3 8 27) : } input_rab = Address of input file RAB 

: 340 0578 1 | Outputs: 

3; «341 574 1! 

; 34 0575 1! None 

. % 0576 1 lene 

> 344 B27 1 

; 345 578 BEGIN 

; 346 0579 

s S47 0580 BUILTIN 

3 0581 NULLPARAMETER; ! True if not specified 

: 349 B2e6 

; 058 LOCAL 

3 635) Bege input_length, ! Length of input Line 

; 2g 585 buffer: VECTOR Cline_size,BYTE]), ! Line buffer 

; $27 3256 bufdesc: VECTOR (2); ! Buffer descriptor 

; $22 0588 IF _ .input_linenum EQL .last_echoed ! If already echoed, 

: 356 0589 THEN 

; 357 0590 RETURN true; ! then skip it 

3 28 B23) last_echoed = . input_tinenum; ! Remember Last Line echoed 

; 360 §398 CHSFILL(" *,record_offset,buffer); ' Clear beginning of Line 

; 1 Bege set_line_number (buffer); ! Set Line number into buffer 
: $3 B209 input_length = MINU(.input_rab Crab$w_rsz], Line_size-record_offset); 
; 0598 bufdesc £0} = .input_length + record_offset; ! Actual length of Line 
5 +444 bufdesc [1] = buffer; ! Set buffer address 

; set CHSMOVE(.input_length, .input_rab Crab$l_rbfJ, buffer+record_offset); 
; 0608 IF NULLPARAMETER(1) ' If FAB not specified, 

: B3 gr coh tot ine Cbutdese) ! Output the Line 

: 43 put_line(bufdesc,.rab); ' else output on specified rab 
; 60 RETURN true; 

; 610 

: 611 END; 


K 13 | 
LISTIN 6-Se 4 AX-11 Bliss =32 v4.0-742 Page 1 MAI 
bb2-006 ECHO_RECORD 12-868: 198 95:12 06 MSGFIL.SRCILISTING. B32;1 . A v04 
003¢ SENTRY ECHO RECORD Save R2,R3,R4,R5 : oset| 
5E Fro. Ce MOVAB =144TSP ; 
0000' CF 00006 cr p CPL INSUT ST IMENUM, LAST_ECHOED : 0588 
0000" CF 00006 cf 0 O16 MOVL. INPUT_LINENUM, LAST_ECHOED + 0591 
28 20 6E 60 ¢ 7 MOVCS #0, (SP), #32. #40, BUFFER : 0593 
8 AF OF 3 PUSHAB BUFF + 0594 
0000v cf 07 FB ALLS #1, SET_LINE_NUMBER ; 
0 00006 CF 3C 00026 MOVZWL INPUT RAB+34, RO + 0596 
con 30 HM 6 p BLEQU Re. : 
50 5D gi 9A 8 MOVZBL #93, RO : 
6E 38 AO 9E 00036 1$: MOVAB 40(RO), BUFDESC : 0598 
04 AE 8 AE 9E 0003A MOV BUFFER, BUFDESC+4 + 0599 
30 AE 00006 oF 5 ; 90 F MOVC3 INPUT_LENGTH, @INPUT_RAB+40, BUFFER+40 + 0601 
6c 0 a6 TSTB = CAP) + 0603 
05 13 0004 BEQL = 2$ : 
04 AC D5 0004 TSTL 4(AP) : 
09 12 00040 BNEQ ; 
SE DD O004F 28: PUSHL  5$P + 0605 
0000v CF 01 FB 0091 CALLS #1, PUT_LINE ; 
0B 11 0005 BRB 4$ : 
04 AC DD 00058 3s: PUSHL RAB + 0607 
04 AE 9F 0005 PUSHAB BUFDESC : 
0000v CF 02 FB 0056 CALLS #2, PUT_LINE : 
50 01 DO 00063 4s: MOVL #1. RO + 0609 
04 00066 RET + 0611 


; Routine Size: 103 bytes, Routine Base: SCODES + 0184 
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13 
LIST 18-$e -1984 02:15: AX-11 Bliss-32 V4.0-742 
Lhe 06 SET_LINE_NUMBER 1 =300 71382 95:13:98 YASGFIL SRETLISTING B32s1 
3 $18 1 ZSBTTL ‘SET_LINE_NUMBER' 
: 1 oz ! ROUTINE set_line_number (buffer) = 
Bo RE 
; 5 e§ 1: This routine increments the current Line number 
; 218 i! and sets the Line number into the output buffer 
s 33 619 1! at the correct position. 
; 388 620 1! 
: 34 > 1 : } Inputs: 
; 3) 86 § : buffer = Address of buffer (lLine_size bytes) 
5 38 + 5 : ! Outputs: 
: 395 6 § 1 i None 
BB 
: 398 0630 2 BEGIN 
BE baw 
3 rt 0638 buffer: REF VECTOR C,BYTE); ' Address of buffer 
: 40 0635 2 LOCAL 
: rts: bees bufdesc: VECTOR (2); ! Descriptor of above string 
: 406 0638 2 bufdesc [0] = 4; ! Set Length of buffe 
: ret be78 bufdesc [1] = .buffer + Linenum_offset; | Set oddress of buffer 
3 409 0641 ¢ SFAO(descriptor(*!4UL"),0, bufdesc, .input_linenum); 
: 411 peeg 2 RETURN true; 
; tig 0644 2 
3: 41 0645 1 END; 
-PSECT S$PLITS,NOWRT,NOEXE,2 
4C 55 34 21 QOO0C P.AAD: .ASCII \!4UL\ 
00000004 00010 P.AAC: . 
00000000" 00014 ADDRESS P.AAD 
-PSECT SCODE$,NOWRT,2 
0000 00000 SET_LINE_NUMBER: 
«WORD Save nothing 
5E 4 C2 0000 SUBL2 #4, SP 
4 dd 0000 PUSH a4 
04 AE 04 3 C1 00007 ADDL #35, BUFFER, BUFDESC+4 
0000G CF D 00000 PUSHL INPUT_LINENUM 
04 AE F 11 PUSHAB BUFDESC 
7E 04 14 CLRL (SP) 
0000" CF F 16 PUSHAB’ P.AAC 
000000006 00 04 FB OOOIA CALLS #4, SYSS$FAO 
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vbe-006 SET_LINE NUMBER if: dep 1964 93:18:98 EMSS OSRESC ES YNe°853. ree 


.io a oe : Se 


; Routine Size: 37 bytes, Routine Base: S$CODE$S + O1EB 


iS 


= 
4 


WN OS OONOUE WN" OVOODANOUW 


yen rere 


we 
uw 


Fa ot ot ot ot ot ot ot ot at at at ata 
OS 


> 
Ww 
~o 


Ft et et et et et 
AOnmdanvmawnn 
WN —OOONOuUfSWwN— 


vv 


NEW_PAGE 


WN“ OOOENOUVLS Ww O0OOnIO 


OOoooooooso 


on 


1 


POR IROPOPOPORONOPONOPUPOPORONONONOPOPORIPOPUPONUPONO ONO PONONUNONU NONUMY) 4 


eS 


ZSBITL ‘NEW PAGE’ 
GLOBAL ROUTINE new_page = 


N 
6 
4 


AX-1 
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Hert Ta Te | Me reed tT TB Ea 


This routine outputs the heading Lines at 


start of each page. A page eject 


Inputs: 


Outputs: 


i 
: 
! 
! 
‘ 
: None 
i 
t 
None 


BEGIN 
BIND 


input_nam = .input_fab Cfab$l_nam]: BBLOCK, 
input_xabdat = .inpuc_fab Cfab$l_xabJ: BBLOCK; 


LOCAL 
buffer: 


VECTOR bb ine_size BYTE, 
bufdesc: 2]; ! 


VECTOR 
IF .page_number EQL 0 : 
THEN 

Lines_per_page = LIBSLP_LINES()-6; ! 


Line_number = 0; H 
page_number = .page_number + 1; : 
bufdesc £0) = line_size; } 
bufdesc (lJ = buffer; : 


$FAO(descri tor 


( 
!*!31AS !2B8AS !20%D VAX-11 Message v04-00 
bufdesc ,bufdesc ,module_name,title_ 


put_line(bufdesc); ; 
bufdesc (0) = Line_size; ! 
OFAD descr intor( 1¢1* '20%D !44AD") 


the 
is issued here. 


' Address of NAM block 
! Address of XABDAT 


' Output buffer 
Buffer descriptor 
If first page in output file, 
then initialize lines per page 


Reset Line number to 0 
and increment page number 


Length of buffer 

Address of buffer 

Page!4UL"), 
text,0,.page_number) ; 

Output Line 

Reset length of buffer 


ufdesc,bufdesc, input_xabdat Cxab$q_cdt 


- input_nam 
put_line(bufdesc); : 


bufdesc (0) = 1; ! 
put_line(bufdesc); : 


RETURN true; 
END; 


] 
nam$b_rslJ, .input_nam Cnam$(_rsa)); 


Output Line 


Reset to null Line 
Output a blank Line 


Page 15 
" (7) 


20 44 25 30 


65 


2 
4 
0 
e 
4 
1 
0 


: 


POOAOMOOOOO 
ooo Lkwnn"Mm non 


MOrOIMmoommmm=a 
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bd 
Dd 
1 
F 
9 
D 


oF 


9 
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F 
D 
F 
9 
9 
9 
9 
j 
F 
Dd 


CO 4s" "POrwown"™ 


PAWNS & 
oom 


———-OO0o0 


DWOAMNMIMNO OVPIM DW OOM OWL MVMOD NUM OLS Owm avo 
=" 
bad 


da:9$ — UmScriuesnesiisriné.0ss 


SPLITS,NOWRT ,NOEXE,2 


\!*!31AS !28AS !20%D VAX-11 Message v04-\ 


\00 Page! 4UL\ 


9 
P.AAF 
'61* !20%D !44AD\ 


LONG 
;ADDRESS P.AAH 


SCODES,NOWRT ,2 
NEW_ $s a. R2,R3,R4,R5,R6 


S 
INPUT" “Fabs 36, 
pace nu NUMBER 


#0, LIBSLP_LI NES 
6 {R0) ms LINES. PER_PAGE 


PAGENU NUS BER 


Sur FER. VEUF DESC #4 
PAGE NUMBER 


TITLE TEXT 
MODUL 


PLA 
a7, ME YSSFAO 
SP 
PUT_LINE 
Ar BOF DESC 
4(R25 
: R2) 
(R35 
BUF DESC 

FDESC 
P.AAG 


#6, SYSSFAO 
SP 


<= 
= 


Sete Se Se Se Se Se Ge Ge Se Ge Ge Se Se Se Se Be Ge Be Se Se Se Se Se Se Se Se Be Se Be Se Be Bee 


vbe=d08 


3; Routine Size: 


NEW_PAGE 


138 bytes, 


Routine Base: 


et 


Ooowoo 
ey ees 


SCODES + 0210 


-1984 AX-11 Bliss-32 V4.0-742 
£p- 1382 93:18 48 MSGFIL.SRCILISTING.B32;1 
CALLS ul. PUT_LINE 
MOVL BUF BESC 
PUSHL 
CALLS 4 PUT_LINE 
MOVL #1, RO 
RET 


“S 
Ww 
—— 


SONS 


INNONOPOPOPONOPONONON) 2 2 2 3 SS I OOOO OOO 


So 
SAR 
SSN NNN NNN NNN 


Sk et et eh et eh ab ah ah ahah ad ah ah ad 
DWONAUES WR $0 DONA VE WN 0 OODNO UN EWN 3 9 OD NOU EWN "OO ONOY FW —ODOOVNROUS 


OUEWN OO OONOULSWN 0 OO 


POPROPORINOPORIPYRY —2 2 tt ot OOOO 


SOCCOOCOOOCOOOCOOCOSOCOSOSOSCOOSSOOCCOCOCOSCSCSOOSCOOCOCOCOCOOOOCOCOCOOOOOOOOOCOOOO 


; 
5 
; 
; 
; 
; 
; 
; 
5 


Nm 

oo~ 
>_> 
PAA 


ZSBTTL we 


ROUTINE put 
This 
file. 


i Inputs: 


i Outputs: 


BUILTIN 
NULLPARAME TER; 


P 
Line_desc: REF VECTOR; 
LOCAL 


outrab: REF BBLOCK, 
status; 

IF NULLPARAMETER( 2) 

THEN 


outrab = Listing_rab 


outrab = 
outfab = 


RETURN true; 


new_page(); 


outrab Crab$w_rsz 


status = $PUT(RAB=.outrab); 
NOT .status 
N 


IF 
THE 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

| MA 

r4 
EL 
T 


D 14 
1e-$ep-1986 19:46:18 


ne (Line_desc, rab) = 


None, errors are signaled 


out fab: REF BBLOCK, 


= .rab; 
.outrab Crab$l_fab); 
IF .outfab Cfab$Sw_ifi] EQL 0 


Line_number = .line_number + 1; 


IF .Line_number GEQ .lines_per_page 
THEN % POF P08 


f = .line_desc 
outrab Crab$l_rbf] = .line_desc 


AX-11 


routine outputs a given record to the Listing 


! 

' 

! 

' 

; Line_desc = Address of record descriptor 

rab = Address of output rab to use (if not specified, use Listing_rab) 
! 

i 


True if not specified 
Address of a descriptor 


Output FAB 

Output RAB 

Status code 

If RAB not specified, 
then use Listing file rab 


else, use RAB address 
and get FAB address 


If file not opened 

then do nothing 

Increment Line number 

If exceeded lines per page, 
then cause page eject 


Set length of record 
Set address of record 


Output Line 
If error detected, 


rms_error(emsg(writeerr),.outfab,.outrab); ! report error 


<= 
S= 


MSGFIL 


a SD 


14 
LIST 18-56 -1984 02:15: AX-11 Bliss-32 V4.0 
ibe b06 PUT_LINE 1 ~300 71387 95:13:98 MSGFIL.SRCILISTING. 
; 33 Ore} ; RETURN .status; ! return with status 
; 2 762 END; 
.EXTRN SYSS$PUT 
001C 00000 PUT_LINE: 
«WORD Save R2,R3,R4 
02 66 91 0000 CMPB CCAP), #2 
1F 999 BLSSU  1$ 
08 aC D5 00 TSTL 8(AP) 
07 12 OO00A BNEG 2$ 
52 00006 CF 9€ 0000C 1$ MOVAB LISTING_RAB, OUTRAB 
04 11 00011 BRB $ 
52 8 AC 06 00013 28 MOVL RAB, OUTRAB 
54 C Ad D 90017 $ MOVL § 60(OUTRAB), OUTFAB 
02 a&é B5 0001B TSTW  2(OUTFAB) 
04 12 OO01E BNEQ 4$ 
50 01 DO 00020 MOVL #1, RO 
04 000 RET 
0000" CF D6 00024 4$ INCL  LINE_NUMBER 
0000" CF 0000' CF D1 00028 CMPL L JNE_NUMBER, LINES_PER_PAGE 
05 19 0002F BLSS g 
FF4O CF 00 FB 00031 CALLS #0, NEW_PAGE 
50 04 AC DO 00036 S$: MOVL § LINE_DESC, RO 
22 A2 60 BO 0003A MOVW (RO); 34(OUTRAB) 
28 =A 04 Ad 00 00056 MOVL 4 (ROS, 40(OUTRAB) 
52 DD 0004 PUSHL OUTRAB 
000000006 00 01 FB 00045 CALLS #1, SYS$PUT 
53 50 00 0004C MOVL RO, STATUS 
OF 53 EB O004F BLBS STATUS, 6$ 
52 DD 00052 PUSHL OUTRAB 
54 DD 00054 PUSHL OUTFAB 
00971002 BF DD 00056 PUSHL #9900242 
00006 CF 03 FB 0005C CALLS #3, RMS_ERROR 
50 53 D0 00061 6$ MOVL STATUS, “RO 
04 00064 RET 


; Routine Size: 101 bytes, Routine Base: $CODE$ + 029A 
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wah ab dh ah ah ahvah ah al alah al ab ah ah shea aleal al 
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SS Foe 


F 14 
ERROR_SUMMARY 1o738p71 88s 93:48:98 «— Eagorie saedciery 


= PONOPOPOPOPOPOPOPOPONONONONNONY) 2 2 2 


ZSBITL "ERROR_SUMMARY' 
GLOBAL ROUTINE error_summary (rab) = 


' 
This routine outputs a summary of the errors detected. 


Inputs: 

rab = Address of RAB to use 
Outputs: 

i. None 


BEGIN 


LOCAL 
bufdesc: VECTOR (2); ! Buffer descriptor 


bufdesc (0) = 0; ! Null Line 
put_line(bufdesc, .rab); ! Output a blank Line 


bufdesc [0] = Line size; 


$FAO(descriptor('’TRhere were !UL error!%S, !UL warning!%S, and !UL informational message!%S issued.'), 


bufdesc,bufdesc,.errors,.warnings,.infos); 
put_line(bufdesc, .rab); ! Output error summary 
RETURN true; 
END; 


-PSECT S$PLITS,NOWRT ,NOEXE,2 


72 $3 77 20 65 72 65 68 54 00084 P.AAJ: .ASCII \There were 'UL error!%S, !UL warning!%S,\ 
¢f 3 25 21 72 6F 72 is 65 00093 
a. ae ¢] 67 gf 69 6—€ 72 61 OOO0A2 
20 4C 55 21 20 64 6€ $} 20 QOOAC «ASCII \ and !UL informational message!%S issued\ 
6D A! $f 61 6€ 6F 69 74 61 00088 
65 75 73 73 69 20 53 25 $! Bach 
E D4 eASCII \.N 
ee -BLKB 3 
00000051 Q00D8 P.AAI: .LONG 81 
00000000' 000DC «ADDRESS P.AAJ 
-PSECT S$CODES,NOWRT,2 
000 68 -ENTRY ERROR_SUMMARY, Save nothing 
5E 4 C€ 0 SUBL2 #4, S 
E 04 0000 CLRL BUF DESC 
04 AC 0D 00007 PUSHL RAB 


vuvUvVvVUUU 


j 


] 

14 
G-Sep-1964 02:15:08 yanedt Blisg-32 v4. 0-742 Page 
| 

| 

| 

| 

| 


LIST 1 
bbe bO8 ERROR_SUMMARY 1 
04 AE OF A PUSHAB BUFDESC F 
BA A 0 FB D CALLS #2, PUT_LINE F 
$e 5 BF 9 i! MOVZBL #153, BOFDESC ; 0787 
E 99 0: CF 7D 0001 OVG WARNINGS, -(SP) + 0789 
' CF pp 1A PUSHL ERRORS : 
§ AE 9F 3 PUSHAB BUFDESC ; P 
AE OF PUSHAB BUFDESC F P 
0000" CF 9F 99 4 PUSHAB P.AAI : P 
000000006 00 6 FB 8 CALLS #6, SYSS$FAO : P 
ry AE BF 8 : puSnae wae esc Wada F 
FF61 cf 09 FB 00035 CALLS a. PUT_LINE : F 
0 1 DO 0003A MOVL #1, RO : 0793 P 
04 00030 RET + 0795 P 


; Routine Size: 62 bytes, Routine Base: SCODES + O2FF 


<z 
pa 


H 14 
L S T -. = 3 | = = e - ' 
Lhe OG END LISTING 1eneen18Re 98:13:98 = PAREHT Ob isgr te yee 08 tse Page 85 | 


1 ZSBTTL "END LISTING’ 


3 7 

: $2 73 ! GLOBAL ROUTINE end_Listing (rab) = 

: 4 139 lene 

: 57 1 $3 This routine is called to output the compile run 
: r 8 : } statistics collected during execution. 
: §7 04 1! Inputs: 

eo a 

; 579 0 OF | e nr = Address of RAB to use 

3 ! S: 

: 3B 0809 Ti 

3 286 0810 1! None 

: 538 0811 1 !-=- 

; 584 0 \¢ 1 

HP BRE gate 

; 289 0815 

; 588 O816 

: 289 is te4 error_summary(.rab); ! Output error summary 
: 591 0819 2 IF ACTUALCOUNT() EQL 0 THEN 

; 236 0820 put_line (command_line_desc) 

: 287 88 ! a, b EQLA Listi b THEN 

3 ra sting_ra 

; 298 08 : put_line leonnehl. Line, dened) 

; 596 0824 

; 597 BBSe 

; 598 0826 RETURN true; 

: 599 0827 

: 600 0828 1 END; 


0000 00000 ENTRY END_LISTING, Save nothing ; 0797 
04 ac DD 90008 PUSHL RAB : 0817 
B9 oA 01 FB 0000 CALLS #1, ERROR_SUMMARY : 
6C 95 00009 STB. —s_ CAP?) : 0819 
0B 13 00008 BEQL i'1$ F 
50 00906 CF 4: 99 MOVAB LISTING_RAB, RO > 0822 
4 ac OD 1 CMPL AB, RO ; 
09 12 id NEQ $ - 
00006 CF 9F 00018 1$: PUSHAB COMMAND_LINE_DESC > 0823 
FF3C cf 1 FB Ooi¢ CALLS #1, PUT“LINE : 
0 1 p 4 2$: OVL #1. RO : 0826 
4 00024 : 0828 


; Routine Size: 37 bytes, Routine Base: S$CODE$ + 033D 


. 
. 
+ 
ao 
. 
. 
. 
. 
7 
o 
- 
o 
. 
° 
. 
. 
. 
e 
a 
o 
. 
a 
. 
. 
° 
o 
° 
. 
e 
. 
yo 
. 
e 
7 
e 
- 
e 
. 
e 
a 
e 
- 
e 
. 
a 
. 
os 
. 
° 
. 
e 
7 
e 
° 
. 
. 
7 
. 
e 
7 
e 
© 
o 
. 
oe 
. 
© 
. 
° 
. 
os 
ae 
oe 
. 
o 
7 
e 
. 
o 
7 
8 
. 
eo 
o 
e 
o 
a 
o 
e 
. 
s 
+ 
e 
~ 
e 
° 
o 
o 
o 
. 
oe 
° 
. 
e 
. 
uo 
7 
. 
a 
Oo 


| 
| 
| 
| 
| 
| 
| 
| 
| 
ACTUALCOUNT; 


14 
1b-Sep-1964 02:15:08 yanet Blisg-32 v4.0-742 Page 25 


9 1 2SBTTL *' 
QO 1 END 
1 O ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
$ 28 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, CON,NOPIC,ALIGN(2) 
CODES 866 NOVEC,NOWRT, » _EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
1T$ 224 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, CON,NOPIC,ALIGN(2) 
Library Statistics 
cocccece Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: CSYSL1BIS aw jy 32;1 9776 35 0 581 00:01. , 
“$255$DUA28: [SYSLIBJTPAMAC.L32; 1 42 0 0 14 00:00.1 
: COMMAND QUALIFIERS 
5 BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:LISTING/OBJ=OBJ$:LISTING MSRC$:LISTING/UPDATE=(ENH$:LISTING) 
Sire: 866 code + 252 data bytes 
Run Time . 


Elapsed. Tine: 00:55.6 
Lines/CPU Mir: 2919 


Memory Used: 117 poses 
Compication Comp'ete 
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TAL EQUIPMENT CORPORATION 
IDENTIAL._.AND PROPRIETARY 


DIGI 
CONF 


